home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 3 / ct-rom iiib.zip / ct-rom iiib / WINDOWS / DIVERSEN / WINE02BX / TAR-MODE.ELC < prev    next >
Text File  |  1993-03-28  |  26KB  |  193 lines

  1. ;;; compiled by jwz@thalidomide on Sat Jan 16 01:47:32 1993
  2. ;;; from file /cadillac-th/jwz/emacs19/lisp/packages/tar-mode.el
  3. ;;; emacs version 19.4.1 Lucid.
  4. ;;; bytecomp version 2.09; 12-jan-93.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (defvar tar-anal-blocksize 20 "\
  14. *The blocksize of tar files written by Emacs, or nil, meaning don't care.
  15. The blocksize of a tar file is not really the size of the blocks; rather, it is
  16. the number of blocks written with one system call.  When tarring to a tape, 
  17. this is the size of the *tape* blocks, but when writing to a file, it doesn't
  18. matter much.  The only noticeable difference is that if a tar file does not
  19. have a blocksize of 20, the tar program will issue a warning; all this really
  20. controls is how many null padding bytes go on the end of the tar file.")
  21. (defvar tar-update-datestamp (fboundp 'current-time-seconds) "\
  22. *Whether tar-mode should play fast and loose with sub-file datestamps;
  23. if this is true, then editing and saving a tar file entry back into its
  24. tar file will update its datestamp.  If false, the datestamp is unchanged.
  25. You may or may not want this - it is good in that you can tell when a file
  26. in a tar archive has been changed, but it is bad for the same reason that
  27. editing a file in the tar archive at all is bad - the changed version of 
  28. the file never exists on disk.
  29.  
  30. This does not work in Emacs 18, because there's no way to get the current 
  31. time as an integer - if this var is true, then editing a file sets its date
  32. to midnight, Jan 1 1970 GMT, which happens to be what 0 encodes.
  33.  
  34. I have written some C code to fix this deficiency which is included in 
  35. Lucid Emacs, and may be included in FSF's version 19.  Tar-mode will take
  36. advantage of this code if it is present.")
  37. (defvar tar-view-kill-buffer t "\
  38. *Whether to kill the buffer when view-mode exits.  The standard view-mode
  39. requires this, but other versions (notably less.el) which don't use
  40. recursive edits do not.")
  41. (fset 'tar-setf '(macro . #[(form val) "└    ┬├!¡ü \"ë9½ç┼ E¬╛ :¼å╟╚    \"¬┤ @╔=½î╩ A@╦ 8F¬ó @╠=½ë═ A@E¬ô @╬=½ë╧ A@E¬ä╟╨    \")ç" [macroexpand form boundp byte-compile-macro-environment mform setq val error "can't setf %s" aref aset 2 car setcar cdr setcdr "don't know how to setf %s"] 5 "\
  42. A mind-numbingly simple implementation of setf."]))
  43. (fset 'tar-dolist '(macro . #[(control &rest body) "@A@AA@─┼\nDC╞┼─ ╟DC╚    ╩┼╦┼DEC\"BBE    F+ç" [control val init var let _dolist_iterator_ while (car _dolist_iterator_) append body setq cdr] 12 "\
  44. syntax: (dolist (var-name list-expr &optional return-value) &body body)"]))
  45. (fset 'tar-dotimes '(macro . #[(control &rest body) "@A@AA@─┼\nD ╞DD╟╚ ┼E╔\n╦ ╠ DEC\"BB    F+ç" [control val n var let _dotimes_end_ 0 while < append body setq 1+] 10 "\
  46. syntax: (dotimes (var-name count-expr &optional return-value) &body body)"]))
  47. (byte-code "└┴Mê┬├Mê─┼Mê╞╟Mê╚╔Mê╩╦Mê╠═Mê╬╧Mê╨╤Mê╥╙Mê╘╒Mê╓╫Mê╪┘Mê┌█Mê▄▌Mê▐▀MêαßMêΓπMêΣ%Σµ\\ë'Φ\\ë)Φ\\ë*Φ\\ë+∞\\ë-∞\\ë.Φ\\ë/≡\\ë1µ\\ë2Φ\\ë3⌠\\ë5⌠\\ë6Φ\\ë7Φ\\8└ç" [make-tar-header (macro . #[(name mode uid git size date ck lt ln magic uname gname devmaj devmin) "└    \n     \n  »ç" [vector name mode uid git size date ck lt ln magic uname gname devmaj devmin] 15]) tar-header-name (macro . #[(x) "└    ┬Eç" [aref x 0] 3]) tar-header-mode (macro . #[(x) "└    ┬Eç" [aref x 1] 3]) tar-header-uid (macro . #[(x) "└    ┬Eç" [aref x 2] 3]) tar-header-gid (macro . #[(x) "└    ┬Eç" [aref x 3] 3]) tar-header-size (macro . #[(x) "└    ┬Eç" [aref x 4] 3]) tar-header-date (macro . #[(x) "└    ┬Eç" [aref x 5] 3]) tar-header-checksum (macro . #[(x) "└    ┬Eç" [aref x 6] 3]) tar-header-link-type (macro . #[(x) "└    ┬Eç" [aref x 7] 3]) tar-header-link-name (macro . #[(x) "└    ┬Eç" [aref x 8] 3]) tar-header-magic (macro . #[(x) "└    ┬Eç" [aref x 9] 3]) tar-header-uname (macro . #[(x) "└    ┬Eç" [aref x 10] 3]) tar-header-gname (macro . #[(x) "└    ┬Eç" [aref x 11] 3]) tar-header-dmaj (macro . #[(x) "└    ┬Eç" [aref x 12] 3]) tar-header-dmin (macro . #[(x) "└    ┬Eç" [aref x 13] 3]) make-tar-desc (macro . #[(data-start tokens) "└    \nEç" [cons data-start tokens] 3]) tar-desc-data-start (macro . #[(x) "└    Dç" [car x] 2]) tar-desc-tokens (macro . #[(x) "└    Dç" [cdr x] 2]) 0 tar-name-offset 100 tar-mode-offset 8 tar-uid-offset tar-gid-offset tar-size-offset 12 tar-time-offset tar-chk-offset tar-linkp-offset 1 tar-link-offset tar-magic-offset tar-uname-offset 32 tar-gname-offset tar-dmaj-offset tar-dmin-offset tar-end-offset] 3)
  48. (fset 'tokenize-tar-header-block #[(string) "G┴W½é┬ç├H├U½ê─H├UäSS    S\n S HSOë╤ÿ«ä╥ÿ┬╒╫#½ê├òS^╫#½ê├òS^╫#½ê\n├òS^\n╫    #½ê ├òS^ O├U«ä┌U?¡ä┌Zë¼è╫█\"½â▄▌▐S#▐ S#▐ !S#▐!\"S#π\"$S#▐$S#Oë¡å\nO¡å     O▐ %S#▐%&S#&.    çτç" [string 512 nil 0 101 tar-mode-offset name-end tar-magic-offset link-end tar-gname-offset uname-end tar-dmaj-offset gname-end tar-linkp-offset link-p tar-uname-offset magic-str "ustar  " "GNUtar " uname-valid-p name "[^]*" nulsexp string-match tar-name-offset tar-link-offset 48 "/$" 5 vector tar-parse-octal-integer tar-uid-offset tar-gid-offset tar-size-offset tar-time-offset tar-parse-octal-integer-32 tar-chk-offset tar-dmin-offset tar-end-offset empty-tar-block] 19 "\
  49. Returns a 'tar-header' structure (a list of name, mode, uid, gid, size, 
  50. write-date, checksum, link-type, and link-name)."])
  51. (fset 'tar-parse-octal-integer #[(string &optional start end) "¼é┴\n¼â G H┴U½é┴ç┴\nW½Ü H┼W½â ¬ë ╞_ H┼Z\\Të¬b )ç" [start 0 end string n 48 8] 4 "\
  52. deletes all your files, and then reboots."])
  53. (byte-code "└┴Mê┬├Mç" [tar-parse-octal-integer-32 #[(string &optional start end) "¼é┴\n¼â G─ \n┼Z#─ \n┼Z\n#╚╔╩\"╔╦\"\"╠═\"*Bç" [start 0 end string tar-parse-octal-integer 6 bot top logior ash 2 -16 logand 65535] 5] tar-parse-octal-integer-safe #[(string) "Gë┬U½ä├─!ê    ┬W½ÿH╟W¼çH╚V½ä├╔!êTë¬c+╩!ç" [string L 0 error "empty string" i _dotimes_end_ 48 55 "'%c' is not an octal digit." tar-parse-octal-integer] 3]] 2)
  54. (fset 'checksum-tar-header-block #[(string) "ë┬\\───    W½ÉH\\Të¬l ë╚W½ÉH\\Të¬l╔\\,ç" [tar-chk-offset chk-field-start 8 chk-field-end 0 sum i string 512 256] 4 "\
  55. Computes and returns a tar-acceptable checksum for this block."])
  56. (fset 'check-tar-header-block-checksum #[(hblock desired-checksum file-name) "┴\n!U?¡ê├ ê─┼\"ç" [desired-checksum checksum-tar-header-block hblock beep message "Invalid checksum for file %s!" file-name] 3 "\
  57. Beep and print a warning if the checksum doesn't match."])
  58. (fset 'recompute-tar-header-block-checksum #[(hblock) "└    !├─\n\"ëG    ╟╚Iê    ╔╩Iê╚    W½ÿ    ═ Z Z╬ZHIê Të ¬c-    ç" [checksum-tar-header-block hblock chk format "%6o" chk-string l 154 0 155 32 i _dotimes_end_ 153 1] 6 "\
  59. Modifies the given string to have a valid checksum field."])
  60. (fset 'tar-grind-file-mode #[(mode string start) "    ┬ ─\"┼U½â╞¬ü╟Iê    ╚\\┬ ╔\"┼U½â╞¬ü╩Iê    ╦\\┬ ╠\"┼U½â╞¬ü═Iê    ╬\\┬ ╧\"┼U½â╞¬ü╟Iê    ╨\\┬ ╤\"┼U½â╞¬ü╩Iê    ╥\\┬ ╙\"┼U½â╞¬ü═Iê    ╘\\┬ ╨\"┼U½â╞¬ü╟Iê    ╒\\┬ ╦\"┼U½â╞¬ü╩Iê    ╙\\┬ ╚\"┼U½â╞¬ü═Iê┬ ╓\"┼U¼ç    ╦\\╫Iê┬ ╪\"┼U¼ç    ╥\\╫Iêç" [string start logand mode 256 0 45 114 1 128 119 2 64 120 3 32 4 16 5 8 6 7 1024 115 2048] 5 "\
  61. Write a \"-rw--r--r-\" representing MODE into STRING beginning at START."])
  62. (defconst tar-can-print-dates (fboundp 'current-time-seconds) "\
  63. true if this emacs has been built with time-printing support")
  64. (fset 'summarize-tar-header-block #[(tar-hblock &optional mod-p) "┴H┬H├H─H┼H╞H╟H╚H╔H╩H╦H ╞╦╦╦½â▄¬ü├\\Së\\\\ë\\ ß G½ç G╚\\¬ü┴\\\\Γ\"#╩H$#┴%½âµ¬üΓIê#┬$τ=¼å$┴=½âΦ¬╪$┬=½âΘ¬╧$├=½âΩ¬╞$─=½âδ¬╜$╟=½â∞¬┤$╚=½âφ¬½$╔=½âε¬ó$∩=½âµ¬Ö$≡=½â±¬É$≥=½â≤¬ç$⌠=¡ü⌡Iê÷#├#êG┴U½å≈!¬éG┴U½å≈!¬é≈!SG^┴8989W½¢#8ZëG8Z┬ZHIê8Të8¬`*#T·IêSG^┴8989W½ÿ#├\\8\\8HIê8Të8¬c*G^┴8989W½¢#8ZëG8Z┬ZHIê8Të8¬`*½╒√ ⁿτO=√!>=>ⁿτOܽç>╟ O¬ï>╟╞Oü@=QAüB┴8989W½Ü# üC8ZZA8HIê8Të8¬a-G┴8989W½û# 8\\8HIê8Të8¬e*┬=¼å├=½Γ─┴8989W½¿# G8┬\\\\\\┬U½àüD¬âüE8HIê8Të8¬S* G┴8989W½£# G8╚\\\\\\ 8HIê8Të8¬_*#.ç" [tar-hblock 0 1 2 3 10 11 4 5 6 7 8 link-name link-p ck time size gname uname gid uid mode name left namew groupw sizew tar-can-print-dates 15 datew slash lastdigit namestart make-string 32 string type mod-p 42 nil 45 108 115 99 98 100 112 20 29 77 35 83 38 86 tar-grind-file-mode int-to-string i _dotimes_end_ 47 current-time-string -4 year file 16 " " str 12 13 "==>" "-->"] 13 "\
  65. Returns a line similar to the output of 'tar -vtf'."])
  66. (fset 'tar-summarize-buffer #[nil "└┴!ê┬──╞ ╟Z]─╔Ñ]\n┬  ╠=¼°═\\dY½ä╬╧!êë═\\{╤! ═\\└╥\nÑ\"ê ╠=¼╦ ¼ä╬╙!ê ╘H╒=½ä═\\ ╓Hë╪W½è╬┘ ╪H#ê B B ╘H¼ö╪V½Ä┌ëS█\"▄\"═\\\\))¬▌▐!ê ƒ-└▀!êèebê┬ !!½û!@\"π\"A!Σ▒ê!A!)¬f)▌σ!ê`%─%}êµ┬!ê*└τ!ç" [message "parsing tar file..." nil result 1 pos buffer-size 1024 bs 100 bs100 tokens empty-tar-block 512 error "truncated tar file" hblock tokenize-tar-header-block "parsing tar file...%s%%" "premature EOF parsing tar file." 7 20 4 size 0 "%s has size %s - corrupted." ash -9 9 make-local-variable tar-parse-info "parsing tar file...formatting..." buffer-read-only _dolist_iterator_ tar-desc summarize-tar-header-block "\n" tar-header-offset set-buffer-modified-p "parsing tar file...done."] 6 "\
  67. Parse the contents of the tar file in the current buffer, and place a
  68. dired-like listing on the front; then narrow to it, so that only that listing
  69. is visible (and the real data of the buffer is hidden)."])
  70. (defvar tar-mode-map nil "\
  71. *Local keymap for tar-mode listings.")
  72. (byte-code "äò┴ ┬!ê├─┼#ê├╞╟#ê├╚╔#ê├╩╔#ê├╦╠#ê├═╠#ê├╬╧#ê├╨╤#ê├╥┼#ê├╙┼#ê├╘╒#ê├╓╟#ê├╫╪#ê├┘╪#ê├┌█#ê├▄▌#ê├▐▀#ê├αß#ê├Γπ#ê├Σ╒#ê├σµ#ê├τΦ#ê├ΘΩ#êδ∞φε#êδ∩φε#ç" [tar-mode-map make-keymap suppress-keymap define-key " " tar-next-line "c" tar-copy "d" tar-flag-deleted "" "e" tar-extract "f" "g" revert-buffer "h" describe-mode "n" "" "o" tar-extract-other-window "" "p" tar-previous-line "" "r" tar-rename-entry "u" tar-unflag "v" tar-view "x" tar-expunge "" tar-unflag-backwards "E" "M" tar-chmod-entry "G" tar-chgrp-entry "O" tar-chown-entry put tar-mode mode-class special tar-subfile-mode] 4)
  73. (fset 'tar-mode #[nil "└┴!ê└┬!ê└├!ê─└┼!ê╞╟╔\n╦ !ê═╬!ê~ê╧┴!½ë    ½å╨    }ê¬â╤ ê╥╙!ç" [make-local-variable tar-header-offset tar-parse-info require-final-newline nil revert-buffer-function tar-mode-revert tar-mode major-mode "Tar" mode-name use-local-map tar-mode-map auto-save-mode 0 boundp 1 tar-summarize-buffer run-hooks tar-mode-hook] 2 "\
  74. Major mode for viewing a tar file as a dired-like listing of its contents.
  75. You can move around using the usual cursor motion commands. 
  76. Letters no longer insert themselves.
  77. Type 'e' to pull a file out of the tar file and into its own buffer.
  78. Type 'c' to copy an entry from the tar file into another file on disk.
  79.  
  80. If you edit a sub-file of this archive (as with the 'e' command) and 
  81. save it with Control-X Control-S, the contents of that buffer will be 
  82. saved back into the tar-file buffer; in this way you can edit a file 
  83. inside of a tar archive without extracting it and re-archiving it.
  84.  
  85. See also: variables tar-update-datestamp and tar-anal-blocksize.
  86. \\{tar-mode-map}"])
  87. (byte-code "└┴!¼é┬┬ç" [boundp tar-subfile-mode nil] 2)
  88. (fset 'tar-subfile-mode #[(p) "└┴!½â    ¼ä┬├!ê─₧¼å╞╟C\"╚─!ê    ¼ä ?¬å╩    !╦V뽃╠ ë½ç╬╧!!ê)╨╤╥\"ê╙╘!ê╘╓╫!ç╪╤!ê½ç╚┌!Lê╘╘╘ëç" [boundp superior-tar-buffer error "This buffer is not an element of a tar file." tar-subfile-mode minor-mode-alist append (tar-subfile-mode " TarFile") make-local-variable p prefix-numeric-value 0 current-local-map m use-local-map copy-keymap local-set-key "" tar-subfile-save-buffer auto-save-mode nil buffer-auto-save-file-name run-hooks tar-subfile-mode-hook local-unset-key subfile-orig-mlbid mode-line-buffer-identification superior-tar-descriptor] 4 "\
  89. Minor mode for editing an element of a tar-file.
  90. This mode redefines ^X^S to save the current buffer back into its 
  91. associated tar-file buffer.  You must save that buffer to actually
  92. save your changes to disk." "P"])
  93. (fset 'tar-subfile-after-write-file-hook #[nil "¡å    ¡â┴┬!ç" [buffer-file-name tar-subfile-mode -1] 2])
  94. (fset 'tar-mode-revert #[(&optional no-autosave no-confirm) "└└├─\"ê~ê)╞ ç" [nil tar-header-offset revert-buffer-function revert-buffer t no-confirm tar-mode] 3 "\
  95. Revert this buffer and turn on tar mode again, to re-compute the
  96. directory listing."])
  97. (byte-code "└┴Mê┬├Mç" [tar-next-line #[(p) "yêm?¡ê    ½â┬¬ü├uç" [p tar-can-print-dates 48 36] 1 nil "p"] tar-previous-line #[(p) "└    [!ç" [tar-next-line p] 2 nil "p"]] 2)
  98. (fset 'tar-current-descriptor #[(&optional noerror) "└eè┴yê`)\"\n8«ç ?¡â─┼!ç" [count-lines 0 tar-parse-info noerror error "This line does not describe a tar-file entry."] 3 "\
  99. Returns the tar-descriptor of the current line, or signals an error."])
  100. (fset 'tar-extract #[(&optional other-window-p) "┴=├ ëAë╞H╚H    ╩H @ ═\\\\ë    \\ ½▓╨╤ ╥=½â╙¬Ñ ╘=½â╒¬£ ╓=½â╫¬ô ╪=½â┘¬è ┌=½â█¬ü▄\"ê    ╞U½ä╨▌!êp▀! ß▀Γ !πQ$%«ü\n&τ(Θ *τ+*½¬(¼ª*@qêΓ*@!¼Æ∞φ!½ì- =½ç*@(¬Z*Aë*¼Vqê(äzε !(∩+≡Ä~êè(qê±#ê╞bê≥!ê≤τë\"ê≥τ!ê⌠⌡!ê⌠φ!ê⌠÷!ê⌠≈!ê⌠°!ê5 -$7686;½à6C66@τ9ë:;½«√ⁿ:\"½º:╞²öSO:²òTτOP■:²ö²òO!@ 7PD6ABB6¬Äü@üA 7PDD6*üB²!ê&%üCτ!ê)qê)\n½¥D½ôüE(!ê+¡ƒüF(!¬ùüE ¬æ½êüG(!¬åüH(!.ç" [other-window-p view view-p tar-current-descriptor descriptor tokens 0 name 4 size 7 link-p tar-header-offset -1 start end error "This is a %s, not a real file." 5 "directory" 20 "tar directory header" 29 "multivolume-continuation" 35 "sparse entry" 38 "volume header" "link" "This is a zero-length file." tar-buffer file-name-nondirectory bufname " (in " buffer-file-name ")" bufid buffer-read-only read-only-p nil buffer buffer-list buffers just-created boundp superior-tar-descriptor generate-new-buffer t ((narrow-to-region 1 tar-header-offset)) insert-buffer-substring set-visited-file-name after-find-file make-local-variable superior-tar-buffer mode-line-buffer-identification tar-subfile-buffer-id subfile-orig-mlbid n ms string-match "%\\([0-9]+\\)b\\'" 1 read-from-string "%b" "Emacs: " 17 tar-subfile-mode set-buffer-modified-p tar-view-kill-buffer view-buffer kill-buffer switch-to-buffer-other-window switch-to-buffer] 6 "\
  101. *In tar-mode, extract this entry of the tar file into its own buffer." nil])
  102. (fset 'tar-extract-other-window #[nil "└┴!ç" [tar-extract t] 2 "\
  103. *In tar-mode, extract this entry of the tar file into its own buffer." nil])
  104. (fset 'tar-view #[nil "└┴!ç" [tar-extract view] 2 "\
  105. *In tar-mode, view the tar file entry on this line." nil])
  106. (fset 'tar-read-file-name #[(&optional prompt) "¼é┴┬├ A─H!┬╞╟!╚$!    ╩    !╦ÿ¼å╠    !½Ö═╬    \"½ë    ─ëòSO¬é    ╧╩!Q        *ç" [prompt "Copy to: " expand-file-name tar-current-descriptor 0 default-file read-file-name file-name-directory nil target file-name-nondirectory "" file-directory-p string-match "/$" "/"] 6 "\
  107. Calls read-file-name, with the default being the file of the current
  108. tar-file descriptor."])
  109. (fset 'tar-copy #[(&optional to-file) "└ ëAë├H\n┼H\n╟H    @    ╩\\\\ë \\ ½ä═╬!ê├U½ä═╧!êp╤╙Ä╘╒!~êèqê╓  #ê╫╤!ê╪!ê┌█ #êq. ç" [tar-current-descriptor descriptor tokens 0 name 4 size 7 link-p tar-header-offset -1 start end error "This is a link, not a real file." "This is a zero-length file." tar-buffer nil buffer ((byte-code "└    }ê\n½ä├\n!ê└ç" [1 tar-header-offset buffer kill-buffer] 2)) generate-new-buffer "*tar-copy-tmp*" insert-buffer-substring set-buffer-modified-p write-file to-file message "Copied tar entry %s to %s"] 5 "\
  110. *In tar-mode, extract this entry of the tar file into a file on disk.
  111. If TO-FILE is not supplied, it is prompted for, defaulting to the name of
  112. the current tar-entry." (byte-code "└ Cç" [tar-read-file-name] 1)])
  113. (fset 'tar-flag-deleted #[(p &optional unflag) "└yê    └W½ä    [¬ü    └\n W½ú─!½ì╞╟!ê½â╚¬ü╔cê    └W½â╩¬ü╟yê\nTë¬Y*m?¡é╦uç" [0 p i _dotimes_end_ tar-current-descriptor unflag delete-char 1 " " "D" -1 36] 3 "\
  114. *In tar mode, mark this sub-file to be deleted from the tar file.
  115. With a prefix argument, mark that many files." "p"])
  116. (fset 'tar-unflag #[(p) "└    ┬\"ç" [tar-flag-deleted p t] 3 "\
  117. *In tar mode, un-mark this sub-file if it is marked to be deleted.
  118. With a prefix argument, un-mark that many files forward." "p"])
  119. (fset 'tar-unflag-backwards #[(p) "└    [┬\"ç" [tar-flag-deleted p t] 3 "\
  120. *In tar mode, un-mark this sub-file if it is marked to be deleted.
  121. With a prefix argument, un-mark that many files backward." "p"])
  122. (fset 'tar-expunge-internal #[nil "└ ëA    @\n─H\n╞H\n╚H        @\n     >A     ½â──yê`╬ê╬uê`Z`|êZ*╤     \" ~ê\n╥\\\\ë╘ë╒\\╓\"╫\"╪\\\\|êZ ½ò@ëë@ZáêA)¬g. ▌}ç" [tar-current-descriptor descriptor tokens line 0 name 4 size 7 link-p start tar-parse-info following-descs line-start nil line-len tar-header-offset delq -513 data-start ash 511 -9 9 512 data-end data-length _dolist_iterator_ desc 1] 6 "\
  123. Expunge the tar-entry specified by the current line."])
  124. (fset 'tar-expunge #[(&optional noconfirm) "¼à┴┬!¡│├è├bêm¼Æ┼╞!½ê╟ ê T¬p╚yê¬k╔ ê╚\n}ê) ├U½à╦╠!¬ä╦═ \")ç" [noconfirm y-or-n-p "expunge files marked for deletion? " 0 n looking-at "D" tar-expunge-internal 1 tar-pad-to-blocksize tar-header-offset message "nothing to expunge." "%s expunged.  Be sure to save this buffer."] 3 "\
  125. *In tar-mode, delete all the archived files flagged for deletion.
  126. This does not modify the disk image; you must save the tar file itself
  127. for this to be permanent." nil])
  128. (fset 'tar-clear-modification-flags #[nil "è└bê`    W¡æ┬├!½ç─┼!ê╞cê┼yê¬j)ç" [0 tar-header-offset looking-at "*" delete-char 1 " "] 2 "\
  129. remove the stars at the beginning of each line."])
  130. (fset 'tar-chown-entry #[(new-uid) ";½Ä┴ A┬Iê├ ┼P\"ç┴ A╞Iê├╚╔\"╩╦O╠P\"ç" [new-uid tar-current-descriptor 10 tar-alter-one-field tar-uname-offset "" 2 tar-uid-offset format "%6o" 0 6 " "] 5 "\
  131. *Change the user-id associated with this entry in the tar file.
  132. If this tar file was written by GNU tar, then you will be able to edit
  133. the user id as a string; otherwise, you must edit it as a number.
  134. You can force editing as a number by calling this with a prefix arg.
  135. This does not modify the disk image; you must save the tar file itself
  136. for this to be permanent." (byte-code "└ A\n¼à    ├H¼ö─╞╟╚╔    ╩H\"\"뺽r)¬å╦╠    ═H\")Cç" [tar-current-descriptor tokens current-prefix-arg 9 nil n read-minibuffer "New UID number: " format "%s" 2 read-string "New UID string: " 10] 6)])
  137. (fset 'tar-chgrp-entry #[(new-gid) ";½Ä┴ A┬Iê├ ┼P\"ç┴ A╞Iê├╚╔\"╩╦O╠P\"ç" [new-gid tar-current-descriptor 11 tar-alter-one-field tar-gname-offset "" 3 tar-gid-offset format "%6o" 0 6 " "] 5 "\
  138. *Change the group-id associated with this entry in the tar file.
  139. If this tar file was written by GNU tar, then you will be able to edit
  140. the group id as a string; otherwise, you must edit it as a number.
  141. You can force editing as a number by calling this with a prefix arg.
  142. This does not modify the disk image; you must save the tar file itself
  143. for this to be permanent." (byte-code "└ A\n¼à    ├H¼ö─╞╟╚╔    ╩H\"\"뺽r)¬å╦╠    ═H\")Cç" [tar-current-descriptor tokens current-prefix-arg 9 nil n read-minibuffer "New GID number: " format "%s" 3 read-string "New GID string: " 11] 6)])
  144. (fset 'tar-rename-entry #[(new-name) "┴ÿ½ä┬├!êG─V½ä┬┼!ê╞ A╟Iê╚╟╔╩╟\"P╟╩O\"ç" [new-name "" error "zero length name." 98 "name too long." tar-current-descriptor 0 tar-alter-one-field make-string 99] 6 "\
  145. *Change the name associated with this entry in the tar file.
  146. This does not modify the disk image; you must save the tar file itself
  147. for this to be permanent." (byte-code "└┴┬ A├H\"Cç" [read-string "New name: " tar-current-descriptor 0] 4)])
  148. (fset 'tar-chmod-entry #[(new-mode) "└ A┴\nIê├ ┼╞\n\"╟╚O╔P\"ç" [tar-current-descriptor 1 new-mode tar-alter-one-field tar-mode-offset format "%6o" 0 6 " "] 5 "\
  149. *Change the protection bits associated with this entry in the tar file.
  150. This does not modify the disk image; you must save the tar file itself
  151. for this to be permanent." (byte-code "└┴┬!!Cç" [tar-parse-octal-integer-safe read-string "New protection (octal): "] 3)])
  152. (fset 'tar-alter-one-field #[(data-position new-data-string) "└ ëA├Äè─yê`╞yê`|ê╟\n!╚▒êd    )~ê    @    ╩\\\\ë  \\bê``G\\|êcê╬ ë╧\\{! \\bê``╥\\|ê╙╘\"cê─cê╒cê\n╓Iê╫ ë╧\\{\n─H#.ç" [tar-current-descriptor descriptor tokens ((narrow-to-region 1 tar-header-offset)) 0 p 1 summarize-tar-header-block "\n" tar-header-offset -513 start data-position new-data-string checksum-tar-header-block 512 chk tar-chk-offset 8 format "%6o" 32 6 check-tar-header-block-checksum] 6])
  153. (fset 'tar-subfile-save-buffer #[nil "½ä┴┬!ç├ ç" [buffer-file-name call-interactively save-buffer tar-subfile-save-buffer-internal] 2 "\
  154. In tar subfile mode, write this buffer back into its parent tar-file buffer.
  155. This doesn't write anything to disk - you must save the parent tar-file buffer
  156. to make your changes permanent." nil])
  157. (fset 'tar-subfile-save-buffer-internal #[nil "└┴!½â    ¼ä┬├!ê─    !¼ä┬┼!ê└╞!½ä¼ä┬╟!ê└╚!½ê½ä┬╔!ê└╩!½ê\n½ä┬╦!ê└╠!½ê ½ä┬═!ê└╬!½ê½ä┬╧!êèp╨     qêA@╓H╪H┌ë█\\▄\"▌\">ë A! ¼ä┬Γ!êπÄè~ê$σ\\\\ë&┌ë█\\▄\"▌\"\\'&'|ê&bêΦ!ê┌ë█\\▄\"▌\")&\\bêΩ)Z╓\"cê╪Iê)Z+!,,½ò,@ë-ë@+\\áê,A,)¬g*&εZë/0\\bê``±\\|ê≥≤\"cê⌠cê5½π/6\\bê``±\\|ê7½┬° ë9@:9A;ⁿ9Iê²┌■: \"ü@\";\";┌:üA\":≥üB:\"cê≥üC;\"cê+¬É≥üD╓\"cêⁿ╓ëBIêüE/&{!F/G\\bê``üH\\|ê≥üIF\"cê╓cê⌠cêüJFIê*G GZKüLbêüMK!ê╓yê`üN $üOôPQüLyêQ`|êüRüSüT\"üU\"êüVP!$.üW ê.    üXüT!êqêüXüO!êüYüZ─    !\",ç" [boundp superior-tar-buffer error "this buffer has no superior tar file buffer." buffer-name "the superior tar file's buffer has been killed." superior-tar-descriptor "this buffer doesn't have an index into its superior tar file!" buffer-save-encrypted "Don't know how to encrypt back into a tar file." buffer-save-compacted "Don't know how to compact back into a tar file." buffer-save-compressed "Don't know how to compress back into a tar file." buffer-save-gzipped "Don't know how to gzip back into a tar file." buffer-size descriptor subfile-size subfile tokens start 0 name 4 size ash 511 -9 9 size-pad tar-parse-info head following-descs "Can't find this tar file entry in its parent tar file!" ((narrow-to-region 1 tar-header-offset)) tar-header-offset -1 data-start data-end insert-buffer subfile-size-pad make-string difference _dolist_iterator_ desc 512 header-start tar-size-offset 12 format "%11o" 32 tar-update-datestamp tar-time-offset tar-can-print-dates current-time-seconds now top bot 5 logior logand 3 16 -2 "%5o" "%06o " "%11o " checksum-tar-header-block chk tar-chk-offset 8 "%6o" 6 position 1 next-line make-marker nil m p insert-before-markers summarize-tar-header-block t "\n" marker-position tar-pad-to-blocksize set-buffer-modified-p message "saved into tar-buffer \"%s\" - remember to save that buffer!"] 6])
  158. (fset 'tar-pad-to-blocksize #[nil "??¡±~ê    GS    8ë@\nAë┼Hë½â╟¬â ╚H         \\\n╦╠\"ëë\nSÑ_\\╧«ü╟\n\\bê╥ T«ü╟\\V½Ä«ü╟\\╥ T|¬É╙«ü╟\\╥ TZ╟\"c.    ç" [tar-anal-blocksize tar-parse-info last-desc start tokens 7 link-p 0 4 size data-end ash 9 bbytes pad-to nil buffer-read-only tar-header-offset buffer-size make-string] 5 "\
  159. If we are being anal about tar file blocksizes, fix up the current buffer.
  160. Leaves the region wide."])
  161. (fset 'maybe-write-tar-file #[nil "┴=¡╤┬├!¡╠ ¡╔─>A╞ë    èî~ê╩ ê╦ {╦ |ê╠Ä    ½æ    @ ë¼ê    Aë    ¼o¼Ä═╦╬ T╞╨%ê╨++ç" [major-mode tar-mode boundp tar-header-offset maybe-write-tar-file write-file-hooks nil done header-string hooks tar-clear-modification-flags 1 ((byte-code "└bê    cê┬├!ç" [1 header-string set-buffer-modified-p nil] 2)) write-region buffer-size buffer-file-name t] 7 "\
  162. Used as a write-file-hook to write tar-files out correctly."])
  163. (defvar tar-regexp "\\.tar$" "\
  164. The regular expression used to identify tar file names.")
  165. (byte-code "┴B\nB├─┼\"ê├╞╟\"ç" [tar-regexp tar-mode auto-mode-alist add-hook write-file-hooks maybe-write-tar-file after-write-file-hooks tar-subfile-after-write-file-hook] 3)
  166. (fset 'tar-normal-mode #[(&optional find-file) "½ë┴\n\"½â├ ç─!ç" [buffer-file-name string-match tar-regexp tar-mode tar-real-normal-mode find-file] 3 "\
  167. Choose the major mode for this buffer automatically.
  168. Also sets up any specified local variables of the file.
  169. Uses the visited file name, the -*- line, and the local variables spec.
  170.  
  171. This function is called automatically from `find-file'.  In that case,
  172. if `inhibit-local-variables' is non-`nil' we require confirmation before
  173. processing a local variables spec.  If you run `normal-mode' explicitly,
  174. confirmation is never required.
  175.  
  176. Note that this version of this function has been hacked to interact
  177. correctly with tar files - when visiting a file which matches
  178. 'tar-regexp', the -*- line and local-variables are not examined,
  179. as they would apply to a file within the archive rather than the archive
  180. itself." nil])
  181. (fset 'tar-set-auto-mode #[nil "½ë┴\n\"½â├ ç─ ç" [buffer-file-name string-match tar-regexp tar-mode tar-real-set-auto-mode] 3 "\
  182. Select major mode appropriate for current buffer.
  183. May base decision on visited file name (See variable  auto-mode-list)
  184. or on buffer contents (-*- line or local variables spec), but does not look
  185. for the \"mode:\" local variable.  For that, use  hack-local-variables.
  186.  
  187. Note that this version of this function has been hacked to interact
  188. correctly with tar files - when visiting a file which matches
  189. 'tar-regexp', the -*- line and local-variables are not examined,
  190. as they would apply to a file within the archive rather than the archive
  191. itself." nil])
  192. (byte-code "└┴!¼à┴┬KMê┬├Mê└─!¼à─┼KMê┼╞Mê╟╚!ç" [fboundp tar-real-normal-mode normal-mode tar-normal-mode tar-real-set-auto-mode set-auto-mode tar-set-auto-mode provide tar-mode] 2)
  193.